           org  $1000
start      move.b data1,d0
           bpl     x1
           neg.b  d0
           move.b d0,data1
x1         nop






           org  $10a0
data1      ds.b 1



